Note

  • This file shows histograms for all measures including HSCS, life event, and WHO-5.
  • hsc = highly sensitive child scale (i.e., sensory-processing sensitivity)
  • wb = WHO-5 (i.e., socioemotional well-being)
  • ev = life event

Histograms

library(plotly)

#hsc1_T1
hsc1_T1_count <- dplyr::count(data, hsc1_T1)
knitr::kable(hsc1_T1_count)
hsc1_T1 n
1 2
2 8
3 10
4 16
5 48
6 19
7 11
e <- ggplot(data = data, mapping = aes(x = hsc1_T1, fill = factor(hsc1_T1))) + geom_histogram(binwidth = 1)
ggplotly(e)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T1
hsc2_T1_count <- dplyr::count(data, hsc2_T1)
knitr::kable(hsc2_T1_count)
hsc2_T1 n
1 3
2 12
3 10
4 20
5 29
6 24
7 16
f <- ggplot(data = data, mapping = aes(x = hsc2_T1, fill = factor(hsc2_T1))) + geom_histogram(binwidth = 1)
ggplotly(f)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T1
hsc3_T1_count <- dplyr::count(data, hsc3_T1)
knitr::kable(hsc3_T1_count) 
hsc3_T1 n
2 4
3 4
4 12
5 23
6 35
7 35
NA 1
g <- ggplot(data = data, mapping = aes(x = hsc3_T1, fill = factor(hsc3_T1))) + geom_histogram(binwidth = 1) 
ggplotly(g) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T1
hsc4_T1_count <- dplyr::count(data, hsc4_T1)
knitr::kable(hsc4_T1_count) 
hsc4_T1 n
1 8
2 13
3 13
4 19
5 28
6 17
7 16
h <- ggplot(data = data, mapping = aes(x = hsc4_T1, fill = factor(hsc4_T1))) + geom_histogram(binwidth = 1) 
ggplotly(h) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T1
hsc5_T1_count <- dplyr::count(data, hsc5_T1)
knitr::kable(hsc5_T1_count)
hsc5_T1 n
3 1
4 4
5 21
6 36
7 52
i <- ggplot(data = data, mapping = aes(x = hsc5_T1, fill = factor(hsc5_T1))) + geom_histogram(binwidth = 1)
ggplotly(i)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T1
hsc6_T1_count <- dplyr::count(data, hsc6_T1)
knitr::kable(hsc6_T1_count) 
hsc6_T1 n
1 2
2 5
3 12
4 21
5 35
6 25
7 14
j <- ggplot(data = data, mapping = aes(x = hsc6_T1, fill = factor(hsc6_T1))) + geom_histogram(binwidth = 1)
ggplotly(j)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T1
hsc7_T1_count <- dplyr::count(data, hsc7_T1)
knitr::kable(hsc7_T1_count)
hsc7_T1 n
1 4
2 11
3 13
4 21
5 17
6 26
7 22
k <- ggplot(data = data, mapping = aes(x = hsc7_T1, fill = factor(hsc7_T1))) + geom_histogram(binwidth = 1) 
ggplotly(k)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T1
hsc8_T1_count <- dplyr::count(data, hsc8_T1)
knitr::kable(hsc8_T1_count) 
hsc8_T1 n
1 3
2 16
3 12
4 42
5 24
6 13
7 4
l <- ggplot(data = data, mapping = aes(x = hsc8_T1, fill = factor(hsc8_T1))) + geom_histogram(binwidth = 1)
ggplotly(l)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T1
hsc9_T1_count <- dplyr::count(data, hsc9_T1)
knitr::kable(hsc9_T1_count) 
hsc9_T1 n
1 9
2 21
3 18
4 38
5 17
6 10
7 1
m <- ggplot(data = data, mapping = aes(x = hsc9_T1, fill = factor(hsc9_T1))) + geom_histogram(binwidth = 1) 
ggplotly(m)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T1
hsc10_T1_count <- dplyr::count(data, hsc10_T1)
knitr::kable(hsc10_T1_count) 
hsc10_T1 n
4 3
5 10
6 29
7 72
n <- ggplot(data = data, mapping = aes(x = hsc10_T1, fill = factor(hsc10_T1))) + geom_histogram(binwidth = 1)
ggplotly(n)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T1
hsc11_T1_count <- dplyr::count(data, hsc11_T1)
knitr::kable(hsc11_T1_count) 
hsc11_T1 n
1 2
2 5
3 12
4 25
5 26
6 23
7 21
o <- ggplot(data = data, mapping = aes(x = hsc11_T1, fill = factor(hsc11_T1))) + geom_histogram(binwidth = 1) 
ggplotly(o) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T1
hsc12_T1_count <- dplyr::count(data, hsc12_T1)
knitr::kable(hsc12_T1_count) 
hsc12_T1 n
1 2
2 5
3 5
4 2
5 28
6 37
7 35
p <- ggplot(data = data, mapping = aes(x = hsc12_T1, fill = factor(hsc12_T1))) + geom_histogram(binwidth = 1) 
ggplotly(p) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc1_T2
hsc1_T2_count <- dplyr::count(data, hsc1_T2)
knitr::kable(hsc1_T2_count) 
hsc1_T2 n
1 2
2 4
3 10
4 20
5 37
6 22
7 5
NA 14
q <- ggplot(data = data, mapping = aes(x = hsc1_T2, fill = factor(hsc1_T2))) + geom_histogram(binwidth = 1)
ggplotly(q)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T2
hsc2_T2_count <- dplyr::count(data, hsc2_T2)
knitr::kable(hsc2_T2_count) 
hsc2_T2 n
1 1
2 8
3 12
4 13
5 30
6 24
7 12
NA 14
r <- ggplot(data = data, mapping = aes(x = hsc2_T2, fill = factor(hsc2_T2))) + geom_histogram(binwidth = 1) 
ggplotly(r) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T2
hsc3_T2_count <- dplyr::count(data, hsc3_T2)
knitr::kable(hsc3_T2_count) 
hsc3_T2 n
1 1
2 2
3 3
4 11
5 22
6 33
7 28
NA 14
s <- ggplot(data = data, mapping = aes(x = hsc3_T2, fill = factor(hsc3_T2))) + geom_histogram(binwidth = 1) 
ggplotly(s) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T2
hsc4_T2_count <- dplyr::count(data, hsc4_T2)
knitr::kable(hsc4_T2_count) 
hsc4_T2 n
1 7
2 11
3 10
4 11
5 27
6 25
7 9
NA 14
t <- ggplot(data = data, mapping = aes(x = hsc4_T2, fill = factor(hsc4_T2))) + geom_histogram(binwidth = 1) 
ggplotly(t) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T2
hsc5_T2_count <- dplyr::count(data, hsc5_T2)
knitr::kable(hsc5_T2_count) 
hsc5_T2 n
3 2
4 6
5 16
6 30
7 46
NA 14
u <- ggplot(data = data, mapping = aes(x = hsc5_T2, fill = factor(hsc5_T2))) + geom_histogram(binwidth = 1) 
ggplotly(u)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T2
hsc6_T2_count <- dplyr::count(data, hsc6_T2)
knitr::kable(hsc6_T2_count) 
hsc6_T2 n
1 1
2 8
3 8
4 13
5 40
6 20
7 10
NA 14
v <- ggplot(data = data, mapping = aes(x = hsc6_T2, fill = factor(hsc6_T2))) + geom_histogram(binwidth = 1) 
ggplotly(v) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T2
hsc7_T2_count <- dplyr::count(data, hsc7_T2)
knitr::kable(hsc7_T2_count) 
hsc7_T2 n
1 3
2 9
3 9
4 23
5 10
6 27
7 19
NA 14
w <- ggplot(data = data, mapping = aes(x = hsc7_T2, fill = factor(hsc7_T2))) + geom_histogram(binwidth = 1) 
ggplotly(w) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T2
hsc8_T2_count <- dplyr::count(data, hsc8_T2)
knitr::kable(hsc8_T2_count) 
hsc8_T2 n
2 11
3 16
4 23
5 31
6 13
7 5
NA 15
neko <- ggplot(data = data, mapping = aes(x = hsc8_T2, fill = factor(hsc8_T2))) + geom_histogram(binwidth = 1) 
ggplotly(neko)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T2
hsc9_T2_count <- dplyr::count(data, hsc9_T2)
knitr::kable(hsc9_T2_count) 
hsc9_T2 n
1 4
2 20
3 15
4 30
5 17
6 9
7 5
NA 14
y <- ggplot(data = data, mapping = aes(x = hsc9_T2, fill = factor(hsc9_T2))) + geom_histogram(binwidth = 1) 
ggplotly(y) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T2
hsc10_T2_count <- dplyr::count(data, hsc10_T2)
knitr::kable(hsc10_T2_count) 
hsc10_T2 n
2 1
3 2
4 1
5 12
6 31
7 53
NA 14
z <- ggplot(data = data, mapping = aes(x = hsc10_T2, fill = factor(hsc10_T2))) + geom_histogram(binwidth = 1) 
ggplotly(z)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T2
hsc11_T2_count <- dplyr::count(data, hsc11_T2)
knitr::kable(hsc11_T2_count) 
hsc11_T2 n
1 2
2 10
3 11
4 14
5 30
6 18
7 14
NA 15
aa <- ggplot(data = data, mapping = aes(x = hsc11_T2, fill = factor(hsc11_T2))) + geom_histogram(binwidth = 1) 
ggplotly(aa)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T2
hsc12_T2_count <- dplyr::count(data, hsc12_T2)
knitr::kable(hsc12_T2_count) 
hsc12_T2 n
1 1
2 5
3 3
4 9
5 22
6 36
7 24
NA 14
bb <- ggplot(data = data, mapping = aes(x = hsc12_T2, fill = factor(hsc12_T2))) + geom_histogram(binwidth = 1) 
ggplotly(bb)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc1_T3
hsc1_T3_count <- dplyr::count(data, hsc1_T3)
knitr::kable(hsc1_T3_count) 
hsc1_T3 n
1 1
2 3
3 12
4 19
5 40
6 24
7 6
NA 9
cc <- ggplot(data = data, mapping = aes(x = hsc1_T3, fill = factor(hsc1_T3))) + geom_histogram(binwidth = 1) 
ggplotly(cc) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T3
hsc2_T3_count <- dplyr::count(data, hsc2_T3)
knitr::kable(hsc2_T3_count) 
hsc2_T3 n
1 2
2 5
3 9
4 11
5 28
6 35
7 15
NA 9
dd <- ggplot(data = data, mapping = aes(x = hsc2_T3, fill = factor(hsc2_T3))) + geom_histogram(binwidth = 1) 
ggplotly(dd) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T3
hsc3_T3_count <- dplyr::count(data, hsc3_T3)
knitr::kable(hsc3_T3_count) 
hsc3_T3 n
2 1
3 2
4 6
5 23
6 29
7 44
NA 9
ff <- ggplot(data = data, mapping = aes(x = hsc3_T3, fill = factor(hsc3_T3))) + geom_histogram(binwidth = 1) 
ggplotly(ff)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T3
hsc4_T3_count <- dplyr::count(data, hsc4_T3)
knitr::kable(hsc4_T3_count) 
hsc4_T3 n
1 3
2 7
3 3
4 17
5 37
6 24
7 14
NA 9
gg <- ggplot(data = data, mapping = aes(x = hsc4_T3, fill = factor(hsc4_T3))) + geom_histogram(binwidth = 1) 
ggplotly(gg) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T3
hsc5_T3_count <- dplyr::count(data, hsc5_T3)
knitr::kable(hsc5_T3_count)
hsc5_T3 n
2 2
3 2
4 4
5 15
6 24
7 58
NA 9
hh <- ggplot(data = data, mapping = aes(x = hsc5_T3, fill = factor(hsc5_T3))) + geom_histogram(binwidth = 1)
ggplotly(hh) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T3
hsc6_T3_count <- dplyr::count(data, hsc6_T3)
knitr::kable(hsc6_T3_count) 
hsc6_T3 n
1 2
2 2
3 5
4 14
5 31
6 33
7 17
NA 10
ii <- ggplot(data = data, mapping = aes(x = hsc6_T3, fill = factor(hsc6_T3))) + geom_histogram(binwidth = 1) 
ggplotly(ii)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T3
hsc7_T3_count <- dplyr::count(data, hsc7_T3)
knitr::kable(hsc7_T3_count) 
hsc7_T3 n
1 5
2 11
3 8
4 22
5 13
6 23
7 23
NA 9
jj <- ggplot(data = data, mapping = aes(x = hsc7_T3, fill = factor(hsc7_T3))) + geom_histogram(binwidth = 1) 
ggplotly(jj) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T3
hsc8_T3_count <- dplyr::count(data, hsc8_T3)
knitr::kable(hsc8_T3_count) 
hsc8_T3 n
1 2
2 5
3 15
4 23
5 29
6 18
7 13
NA 9
kk <- ggplot(data = data, mapping = aes(x = hsc8_T3, fill = factor(hsc8_T3))) + geom_histogram(binwidth = 1) 
ggplotly(kk) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T3
hsc9_T3_count <- dplyr::count(data, hsc9_T3)
knitr::kable(hsc9_T3_count) 
hsc9_T3 n
1 6
2 15
3 16
4 29
5 25
6 10
7 4
NA 9
ll <- ggplot(data = data, mapping = aes(x = hsc9_T3, fill = factor(hsc9_T3))) + geom_histogram(binwidth = 1) 
ggplotly(ll)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T3
hsc10_T3_count <- dplyr::count(data, hsc10_T3)
knitr::kable(hsc10_T3_count) 
hsc10_T3 n
3 1
4 3
5 10
6 29
7 62
NA 9
dog <- ggplot(data = data, mapping = aes(x = hsc10_T3, fill = factor(hsc10_T3))) + geom_histogram(binwidth = 1) 
ggplotly(dog) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T3
hsc11_T3_count <- dplyr::count(data, hsc11_T3)
knitr::kable(hsc11_T3_count) 
hsc11_T3 n
1 3
2 4
3 10
4 22
5 25
6 25
7 16
NA 9
mm <- ggplot(data = data, mapping = aes(x = hsc11_T3, fill = factor(hsc11_T3))) + geom_histogram(binwidth = 1) 
ggplotly(mm) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T3
hsc12_T3_count <- dplyr::count(data, hsc12_T3)
knitr::kable(hsc12_T3_count) 
hsc12_T3 n
2 1
3 2
4 9
5 27
6 39
7 27
NA 9
nn <- ggplot(data = data, mapping = aes(x = hsc12_T3, fill = factor(hsc12_T3))) + geom_histogram(binwidth = 1) 
ggplotly(nn) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc1_T4
hsc1_T4_count <- dplyr::count(data, hsc1_T4)
knitr::kable(hsc1_T4_count) 
hsc1_T4 n
1 1
2 2
3 15
4 17
5 41
6 27
7 3
NA 8
oo <- ggplot(data = data, mapping = aes(x = hsc1_T4, fill = factor(hsc1_T4))) + geom_histogram(binwidth = 1) 
ggplotly(oo) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc2_T4
hsc2_T4_count <- dplyr::count(data, hsc2_T4)
knitr::kable(hsc2_T4_count) 
hsc2_T4 n
2 9
3 11
4 9
5 32
6 32
7 13
NA 8
pp <- ggplot(data = data, mapping = aes(x = hsc2_T4, fill = factor(hsc2_T4))) + geom_histogram(binwidth = 1) 
ggplotly(pp) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc3_T4
hsc3_T4_count <- dplyr::count(data, hsc3_T4)
knitr::kable(hsc3_T4_count) 
hsc3_T4 n
2 2
3 2
4 9
5 21
6 29
7 43
NA 8
qq <- ggplot(data = data, mapping = aes(x = hsc3_T4, fill = factor(hsc3_T4))) + geom_histogram(binwidth = 1) 
ggplotly(qq) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc4_T4
hsc4_T4_count <- dplyr::count(data, hsc4_T4)
knitr::kable(hsc4_T4_count) 
hsc4_T4 n
1 5
2 5
3 13
4 12
5 35
6 22
7 14
NA 8
rr <- ggplot(data = data, mapping = aes(x = hsc4_T4, fill = factor(hsc4_T4))) + geom_histogram(binwidth = 1) 
ggplotly(rr) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc5_T4
hsc5_T4_count <- dplyr::count(data, hsc5_T4)
knitr::kable(hsc5_T4_count) 
hsc5_T4 n
2 1
3 4
4 3
5 19
6 23
7 54
NA 10
ss <- ggplot(data = data, mapping = aes(x = hsc5_T4, fill = factor(hsc5_T4))) + geom_histogram(binwidth = 1) 
ggplotly(ss) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc6_T4
hsc6_T4_count <- dplyr::count(data, hsc6_T4)
knitr::kable(hsc6_T4_count) 
hsc6_T4 n
1 2
2 8
3 8
4 9
5 38
6 29
7 12
NA 8
inu <- ggplot(data = data, mapping = aes(x = hsc6_T4, fill = factor(hsc6_T4))) + geom_histogram(binwidth = 1) 
ggplotly(inu) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc7_T4
hsc7_T4_count <- dplyr::count(data, hsc7_T4)
knitr::kable(hsc7_T4_count) 
hsc7_T4 n
1 4
2 9
3 11
4 16
5 18
6 27
7 21
NA 8
tt <- ggplot(data = data, mapping = aes(x = hsc7_T4, fill = factor(hsc7_T4))) + geom_histogram(binwidth = 1) 
ggplotly(tt) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc8_T4
hsc8_T4_count <- dplyr::count(data, hsc8_T4)
knitr::kable(hsc8_T4_count) 
hsc8_T4 n
1 2
2 5
3 17
4 20
5 34
6 17
7 11
NA 8
vv <- ggplot(data = data, mapping = aes(x = hsc8_T4, fill = factor(hsc8_T4))) + geom_histogram(binwidth = 1) 
ggplotly(vv)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc9_T4
hsc9_T4_count <- dplyr::count(data, hsc9_T4)
knitr::kable(hsc9_T4_count)
hsc9_T4 n
1 6
2 13
3 19
4 30
5 24
6 11
7 3
NA 8
ww <- ggplot(data = data, mapping = aes(x = hsc9_T4, fill = factor(hsc9_T4))) + geom_histogram(binwidth = 1)
ggplotly(ww)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc10_T4
hsc10_T4_count <- dplyr::count(data, hsc10_T4)
knitr::kable(hsc10_T4_count) 
hsc10_T4 n
2 1
3 1
4 3
5 11
6 30
7 60
NA 8
kame <- ggplot(data = data, mapping = aes(x = hsc10_T4, fill = factor(hsc10_T4))) + geom_histogram(binwidth = 1)
ggplotly(kame) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc11_T4
hsc11_T4_count <- dplyr::count(data, hsc11_T4)
knitr::kable(hsc11_T4_count) 
hsc11_T4 n
1 2
2 10
3 11
4 18
5 28
6 22
7 15
NA 8
yy <- ggplot(data = data, mapping = aes(x = hsc11_T4, fill = factor(hsc11_T4))) + geom_histogram(binwidth = 1) 
ggplotly(yy) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc12_T4
hsc12_T4_count <- dplyr::count(data, hsc12_T4)
knitr::kable(hsc12_T4_count) 
hsc12_T4 n
1 1
2 5
3 2
4 7
5 31
6 31
7 29
NA 8
zz <- ggplot(data = data, mapping = aes(x = hsc12_T4, fill = factor(hsc12_T4))) + geom_histogram(binwidth = 1) 
ggplotly(zz) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T1
wb1_T1_count <- dplyr::count(data, wb1_T1)
knitr::kable(wb1_T1_count) 
wb1_T1 n
0 1
1 6
2 27
3 39
4 31
5 10
aaa <- ggplot(data = data, mapping = aes(x = wb1_T1, fill = factor(wb1_T1))) + geom_histogram(binwidth = 1) 
ggplotly(aaa) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T1
wb2_T1_count <- dplyr::count(data, wb2_T1)
knitr::kable(wb2_T1_count) 
wb2_T1 n
0 2
1 12
2 31
3 40
4 23
5 6
bbb <- ggplot(data = data, mapping = aes(x = wb2_T1, fill = factor(wb2_T1))) + geom_histogram(binwidth = 1) 
ggplotly(bbb) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T1
wb3_T1_count <- dplyr::count(data, wb3_T1)
knitr::kable(wb3_T1_count) 
wb3_T1 n
0 2
1 11
2 26
3 36
4 28
5 10
NA 1
ccc <- ggplot(data = data, mapping = aes(x = wb3_T1, fill = factor(wb3_T1))) + geom_histogram(binwidth = 1) 
ggplotly(ccc) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb4_T1
wb4_T1_count <- dplyr::count(data, wb4_T1)
knitr::kable(wb4_T1_count) 
wb4_T1 n
0 4
1 35
2 34
3 27
4 9
5 5
ddd <- ggplot(data = data, mapping = aes(x = wb4_T1, fill = factor(wb4_T1))) + geom_histogram(binwidth = 1)
ggplotly(ddd) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T1
wb5_T1_count <- dplyr::count(data, wb5_T1)
knitr::kable(wb5_T1_count) 
wb5_T1 n
0 3
1 15
2 29
3 38
4 22
5 7
eee <- ggplot(data = data, mapping = aes(x = wb5_T1, fill = factor(wb5_T1))) + geom_histogram(binwidth = 1) 
ggplotly(eee) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T2
wb1_T2_count <- dplyr::count(data, wb1_T2)
knitr::kable(wb1_T2_count)
wb1_T2 n
1 5
2 23
3 30
4 33
5 9
NA 14
fff <- ggplot(data = data, mapping = aes(x = wb1_T2, fill = factor(wb1_T2))) + geom_histogram(binwidth = 1) 
ggplotly(fff) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T2
wb2_T2_count <- dplyr::count(data, wb2_T2)
knitr::kable(wb2_T2_count) 
wb2_T2 n
1 7
2 23
3 28
4 32
5 9
NA 15
ggg <- ggplot(data = data, mapping = aes(x = wb2_T2, fill = factor(wb2_T2))) + geom_histogram(binwidth = 1) 
ggplotly(ggg) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T2
wb3_T2_count <- dplyr::count(data, wb3_T2)
knitr::kable(wb3_T2_count) 
wb3_T2 n
1 10
2 16
3 36
4 25
5 13
NA 14
hhh <- ggplot(data = data, mapping = aes(x = wb3_T2, fill = factor(wb3_T2))) + geom_histogram(binwidth = 1)
ggplotly(hhh)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb4_T2
wb4_T2_count <- dplyr::count(data, wb4_T2)
knitr::kable(wb4_T2_count) 
wb4_T2 n
0 2
1 26
2 29
3 23
4 12
5 8
NA 14
iii <- ggplot(data = data, mapping = aes(x = wb4_T2, fill = factor(wb4_T2))) + geom_histogram(binwidth = 1) 
ggplotly(iii) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T2
wb5_T2_count <- dplyr::count(data, wb5_T2)
knitr::kable(wb5_T2_count) 
wb5_T2 n
1 12
2 26
3 28
4 21
5 13
NA 14
jjj <- ggplot(data = data, mapping = aes(x = wb5_T2, fill = factor(wb5_T2))) + geom_histogram(binwidth = 1) 
ggplotly(jjj) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T3
wb1_T3_count <- dplyr::count(data, wb1_T3)
knitr::kable(wb1_T3_count) 
wb1_T3 n
0 1
1 6
2 18
3 36
4 28
5 16
NA 9
kkk <- ggplot(data = data, mapping = aes(x = wb1_T3, fill = factor(wb1_T3))) + geom_histogram(binwidth = 1) 
ggplotly(kkk) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T3
wb2_T3_count <- dplyr::count(data, wb2_T3)
knitr::kable(wb2_T3_count) 
wb2_T3 n
0 1
1 12
2 22
3 32
4 27
5 11
NA 9
lll <- ggplot(data = data, mapping = aes(x = wb2_T3, fill = factor(wb2_T3))) + geom_histogram(binwidth = 1) 
ggplotly(lll) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T3
wb3_T3_count <- dplyr::count(data, wb3_T3)
knitr::kable(wb1_T3_count) 
wb1_T3 n
0 1
1 6
2 18
3 36
4 28
5 16
NA 9
mmm <- ggplot(data = data, mapping = aes(x = wb3_T3, fill = factor(wb3_T3))) + geom_histogram(binwidth = 1) 
ggplotly(mmm) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb4_T3
wb4_T3_count <- dplyr::count(data, wb4_T3)
knitr::kable(wb4_T3_count) 
wb4_T3 n
0 6
1 20
2 40
3 18
4 15
5 6
NA 9
nnn <- ggplot(data = data, mapping = aes(x = wb4_T3, fill = factor(wb4_T3))) + geom_histogram(binwidth = 1) 
ggplotly(nnn) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T3
wb5_T3_count <- dplyr::count(data, wb5_T3)
knitr::kable(wb5_T3_count) 
wb5_T3 n
0 1
1 16
2 27
3 38
4 16
5 7
NA 9
ooo <- ggplot(data = data, mapping = aes(x = wb5_T3, fill = factor(wb5_T3))) + geom_histogram(binwidth = 1) 
ggplotly(ooo) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb1_T4
wb1_T4_count <- dplyr::count(data, wb1_T4)
knitr::kable(wb1_T4_count) 
wb1_T4 n
0 1
1 10
2 17
3 34
4 34
5 10
NA 8
ppp <- ggplot(data = data, mapping = aes(x = wb1_T4, fill = factor(wb1_T4))) + geom_histogram(binwidth = 1) 
ggplotly(ppp) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb2_T4
wb2_T4_count <- dplyr::count(data, wb2_T4)
knitr::kable(wb2_T4_count) 
wb2_T4 n
0 3
1 14
2 24
3 32
4 21
5 12
NA 8
qqq <- ggplot(data = data, mapping = aes(x = wb2_T4, fill = factor(wb2_T4))) + geom_histogram(binwidth = 1)
ggplotly(qqq) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb3_T4
wb3_T4_count <- dplyr::count(data, wb3_T4)
knitr::kable(wb3_T4_count) 
wb3_T4 n
0 1
1 9
2 25
3 31
4 23
5 17
NA 8
rrr <- ggplot(data = data, mapping = aes(x = wb3_T4, fill = factor(wb3_T4))) + geom_histogram(binwidth = 1) 
ggplotly(rrr) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb5_T4
wb5_T4_count <- dplyr::count(data, wb5_T4)
knitr::kable(wb5_T4_count) 
wb5_T4 n
0 4
1 12
2 25
3 30
4 20
5 15
NA 8
sss <- ggplot(data = data, mapping = aes(x = wb5_T4, fill = factor(wb5_T4))) + geom_histogram(binwidth = 1) 
ggplotly(sss) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T1
event1_T1_count <- dplyr::count(data, ev1_T1)
knitr::kable(event1_T1_count) 
ev1_T1 n
-3 16
-2 11
-1 9
0 3
1 8
2 11
3 55
NA 1
ttt <- ggplot(data = data, mapping = aes(x = ev1_T1, fill = factor(ev1_T1))) + geom_histogram(binwidth = 1) 
ggplotly(ttt) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T1
event2_T1_count <- dplyr::count(data, ev2_T1)
knitr::kable(event2_T1_count) 
ev2_T1 n
-3 21
-2 16
-1 8
0 5
1 2
2 19
3 42
NA 1
uuu <- ggplot(data = data, mapping = aes(x = ev2_T1, fill = factor(ev2_T1))) + geom_histogram(binwidth = 1) 
ggplotly(uuu) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T2
event1_T2_count <- dplyr::count(data, ev1_T2)
knitr::kable(event1_T2_count) 
ev1_T2 n
-3 17
-2 7
-1 4
0 4
1 6
2 13
3 47
NA 16
vvv <- ggplot(data = data, mapping = aes(x = ev1_T2, fill = factor(ev1_T2))) + geom_histogram(binwidth = 1) 
ggplotly(vvv) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T2
event2_T2_count <- dplyr::count(data, ev2_T2)
knitr::kable(event2_T2_count) 
ev2_T2 n
-3 20
-2 15
-1 5
0 1
1 8
2 17
3 29
NA 19
www <- ggplot(data = data, mapping = aes(x = ev2_T2, fill = factor(ev2_T2))) + geom_histogram(binwidth = 1)
ggplotly(www) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T3
event1_T3_count <- dplyr::count(data, ev1_T3)
knitr::kable(event1_T3_count) 
ev1_T3 n
-3 19
-2 6
-1 10
0 6
1 4
2 11
3 47
NA 11
usagi <- ggplot(data = data, mapping = aes(x = ev1_T3, fill = factor(ev1_T3))) + geom_histogram(binwidth = 1) 
ggplotly(usagi) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T3
event2_T3_count <- dplyr::count(data, ev2_T3)
knitr::kable(event2_T3_count) 
ev2_T3 n
-3 22
-2 12
-1 4
0 5
1 13
2 13
3 34
NA 11
yyy <- ggplot(data = data, mapping = aes(x = ev2_T3, fill = factor(ev2_T3))) + geom_histogram(binwidth = 1) 
ggplotly(yyy) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event1_T4
event1_T4_count <- dplyr::count(data, ev1_T4)
knitr::kable(event1_T4_count) 
ev1_T4 n
-3 15
-2 5
-1 3
0 4
1 10
2 15
3 49
NA 13
zzz <- ggplot(data = data, mapping = aes(x = ev1_T4, fill = factor(ev1_T4))) + geom_histogram(binwidth = 1) 
ggplotly(zzz) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#event2_T4
event2_T4_count <- dplyr::count(data, ev2_T4)
knitr::kable(event2_T4_count) 
ev2_T4 n
-3 15
-2 13
-1 10
0 9
1 9
2 14
3 31
NA 13
aaaa <- ggplot(data = data, mapping = aes(x = ev2_T4, fill = factor(ev2_T4))) + geom_histogram(binwidth = 1) 
ggplotly(aaaa) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T1
eoe_T1_count <- dplyr::count(data, eoe_T1)
knitr::kable(eoe_T1_count) 
eoe_T1 n
1.8 2
2.2 1
2.4 2
2.6 1
2.8 1
3.0 1
3.2 3
3.4 5
3.6 2
3.8 10
4.0 6
4.2 14
4.4 6
4.6 7
4.8 11
5.0 9
5.2 10
5.4 5
5.6 6
5.8 5
6.0 4
6.4 3
bbbb <- ggplot(data = data, mapping = aes(x = eoe_T1, fill = factor(eoe_T1))) + geom_histogram(binwidth = 1) 
ggplotly(bbbb) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T2
eoe_T2_count <- dplyr::count(data, eoe_T2)
knitr::kable(eoe_T2_count) 
eoe_T2 n
1.8 2
2.0 1
2.4 1
2.6 2
2.8 2
3.0 1
3.2 2
3.4 2
3.6 2
3.8 4
4.0 5
4.2 8
4.4 6
4.6 9
4.8 16
5.0 3
5.2 7
5.4 5
5.6 9
5.8 2
6.0 3
6.2 4
6.4 1
6.6 1
6.8 1
NA 15
cccc <- ggplot(data = data, mapping = aes(x = eoe_T2, fill = factor(eoe_T2))) + geom_histogram(binwidth = 1) 
ggplotly(cccc) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T3
eoe_T3_count <- dplyr::count(data, eoe_T3)
knitr::kable(eoe_T3_count) 
eoe_T3 n
2.0 1
2.2 1
2.4 1
2.6 1
3.0 2
3.2 1
3.6 1
3.8 4
4.0 3
4.2 5
4.4 7
4.6 10
4.8 8
5.0 14
5.2 11
5.4 11
5.6 7
5.8 3
6.0 2
6.2 2
6.4 5
6.6 2
7.0 2
NA 10
dddd <- ggplot(data = data, mapping = aes(x = eoe_T3, fill = factor(eoe_T3))) + geom_histogram(binwidth = 1) 
ggplotly(dddd) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#eoe_T4
eoe_T4_count <- dplyr::count(data, eoe_T4)
knitr::kable(eoe_T4_count) 
eoe_T4 n
1.0 1
2.0 1
2.2 1
2.4 1
2.6 1
2.8 3
3.0 2
3.2 3
3.4 1
3.6 1
3.8 3
4.0 6
4.2 2
4.4 7
4.6 13
4.8 7
5.0 7
5.2 10
5.4 7
5.6 11
5.8 6
6.0 5
6.2 2
6.4 2
6.6 1
6.8 1
7.0 1
NA 8
eeee <- ggplot(data = data, mapping = aes(x = eoe_T4, fill = factor(eoe_T4))) + geom_histogram(binwidth = 1) 
ggplotly(eeee) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T1
lst_T1_count <- dplyr::count(data, lst_T1)
knitr::kable(lst_T1_count) 
lst_T1 n
1.5 2
2.0 3
2.5 3
3.0 7
3.5 15
4.0 8
4.5 14
5.0 15
5.5 16
6.0 10
6.5 9
7.0 12
ffff <- ggplot(data = data, mapping = aes(x = lst_T1, fill = factor(lst_T1))) + geom_histogram(binwidth = 1) 
ggplotly(ffff) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T2
lst_T2_count <- dplyr::count(data, lst_T2)
knitr::kable(lst_T2_count) 
lst_T2 n
1.0 1
2.0 6
2.5 4
3.0 5
3.5 6
4.0 9
4.5 11
5.0 18
5.5 13
6.0 12
6.5 7
7.0 7
NA 15
gggg <- ggplot(data = data, mapping = aes(x = lst_T2, fill = factor(lst_T2))) + geom_histogram(binwidth = 1) 
ggplotly(gggg) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T3
lst_T3_count <- dplyr::count(data, lst_T3)
knitr::kable(lst_T3_count) 
lst_T3 n
1.0 1
1.5 1
2.0 2
2.5 1
3.0 8
3.5 5
4.0 13
4.5 7
5.0 17
5.5 13
6.0 19
6.5 7
7.0 11
NA 9
hhhh <- ggplot(data = data, mapping = aes(x = lst_T3, fill = factor(lst_T3))) + geom_histogram(binwidth = 1)
ggplotly(hhhh) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#lst_T4
lst_T4_count <- dplyr::count(data, lst_T4)
knitr::kable(lst_T4_count) 
lst_T4 n
2.0 6
2.5 3
3.0 9
3.5 4
4.0 10
4.5 8
5.0 22
5.5 11
6.0 18
6.5 6
7.0 9
NA 8
iiii <- ggplot(data = data, mapping = aes(x = lst_T4, fill = factor(lst_T4))) + geom_histogram(binwidth = 1) 
ggplotly(iiii) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T1
aes_T1_count <- dplyr::count(data, aes_T1)
knitr::kable(aes_T1_count) 
aes_T1 n
3.25 1
4.25 1
4.50 2
4.75 6
5.00 6
5.25 15
5.50 9
5.75 22
6.00 21
6.25 11
6.50 9
6.75 5
7.00 5
NA 1
jjjj <- ggplot(data = data, mapping = aes(x = aes_T1, fill = factor(aes_T1))) + geom_histogram(binwidth = 1) 
ggplotly(jjjj) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T2
aes_T2_count <- dplyr::count(data, aes_T2)
knitr::kable(aes_T2_count) 
aes_T2 n
2.50 1
3.50 1
4.00 1
4.50 3
4.75 3
5.00 10
5.25 12
5.50 15
5.75 11
6.00 13
6.25 15
6.50 6
6.75 6
7.00 3
NA 14
kkkk <- ggplot(data = data, mapping = aes(x = aes_T2, fill = factor(aes_T2))) + geom_histogram(binwidth = 1) 
ggplotly(kkkk) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T3
aes_T3_count <- dplyr::count(data, aes_T3)
knitr::kable(aes_T3_count) 
aes_T3 n
4.00 2
4.25 1
4.50 2
4.75 1
5.00 10
5.25 9
5.50 13
5.75 15
6.00 9
6.25 17
6.50 14
6.75 7
7.00 5
NA 9
llll <- ggplot(data = data, mapping = aes(x = aes_T3, fill = factor(aes_T3))) + geom_histogram(binwidth = 1) 
ggplotly(llll) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#aes_T4
aes_T4_count <- dplyr::count(data, aes_T4)
knitr::kable(aes_T4_count) 
aes_T4 n
2.75 2
3.50 1
4.25 2
4.50 2
4.75 4
5.00 5
5.25 10
5.50 12
5.75 10
6.00 16
6.25 13
6.50 12
6.75 14
7.00 1
NA 10
mmmm <- ggplot(data = data, mapping = aes(x = aes_T4, fill = factor(aes_T4))) + geom_histogram(binwidth = 1) 
ggplotly(mmmm) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T1
hsc_T1_count <- dplyr::count(data, hsc_T1)
knitr::kable(hsc_T1_count) 
hsc_T1 n
3.183333 1
3.300000 1
3.383333 1
3.400000 1
3.416667 1
3.650000 1
3.766667 1
3.933333 1
3.966667 1
3.983333 1
4.016667 1
4.066667 1
4.116667 1
4.150000 1
4.183333 1
4.266667 1
4.283333 1
4.316667 1
4.350000 2
4.383333 1
4.433333 1
4.450000 1
4.483333 3
4.500000 2
4.516667 1
4.633333 1
4.650000 1
4.683333 1
4.733333 1
4.750000 2
4.766667 2
4.800000 1
4.816667 1
4.850000 5
4.866667 1
4.883333 1
4.916667 1
4.933333 1
5.000000 2
5.016667 1
5.050000 1
5.066667 1
5.116667 1
5.150000 1
5.166667 2
5.200000 1
5.216667 2
5.233333 1
5.250000 1
5.283333 2
5.300000 1
5.316667 3
5.333333 2
5.366667 1
5.383333 1
5.416667 1
5.433333 2
5.450000 1
5.466667 1
5.483333 3
5.500000 1
5.516667 2
5.533333 1
5.566667 3
5.583333 1
5.616667 3
5.666667 1
5.683333 1
5.700000 1
5.733333 2
5.766667 1
5.800000 4
5.833333 1
5.850000 1
5.900000 1
5.916667 1
6.066667 1
6.083333 1
6.116667 1
6.133333 1
6.300000 1
6.383333 1
6.466667 1
6.600000 1
NA 1
nnnn <- ggplot(data = data, mapping = aes(x = hsc_T1, fill = factor(hsc_T1))) + geom_histogram(binwidth = 0.1) 
ggplotly(nnnn) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T2
hsc_T2_count <- dplyr::count(data, hsc_T2)
knitr::kable(hsc_T2_count) 
hsc_T2 n
2.533333 1
2.916667 1
3.066667 1
3.600000 1
3.616667 1
3.716667 1
3.850000 1
4.000000 1
4.016667 1
4.033333 1
4.050000 1
4.100000 2
4.166667 2
4.233333 1
4.316667 1
4.400000 1
4.433333 1
4.466667 1
4.500000 1
4.516667 3
4.533333 1
4.550000 2
4.566667 1
4.633333 1
4.650000 1
4.733333 2
4.766667 1
4.783333 2
4.866667 1
4.883333 2
4.900000 1
4.933333 2
4.950000 1
4.983333 1
5.000000 1
5.016667 1
5.066667 1
5.100000 1
5.116667 1
5.150000 2
5.183333 2
5.200000 2
5.233333 2
5.250000 1
5.283333 1
5.300000 1
5.333333 1
5.350000 1
5.383333 1
5.416667 2
5.433333 2
5.450000 1
5.466667 1
5.516667 1
5.533333 1
5.616667 2
5.633333 1
5.666667 2
5.683333 3
5.700000 3
5.766667 1
5.783333 1
5.800000 1
5.816667 1
5.866667 1
5.883333 1
5.950000 1
6.016667 2
6.066667 2
6.150000 1
6.233333 2
6.283333 1
6.683333 1
6.800000 1
NA 16
oooo <- ggplot(data = data, mapping = aes(x = hsc_T2, fill = factor(hsc_T2))) + geom_histogram(binwidth = 0.1) 
ggplotly(oooo)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T3
hsc_T3_count <- dplyr::count(data, hsc_T3)
knitr::kable(hsc_T3_count) 
hsc_T3 n
3.383333 1
3.483333 1
3.500000 1
3.766667 1
3.916667 1
3.950000 1
4.000000 1
4.016667 1
4.083333 1
4.150000 1
4.216667 1
4.283333 1
4.400000 1
4.433333 1
4.450000 1
4.483333 1
4.533333 1
4.566667 2
4.700000 2
4.766667 2
4.800000 1
4.866667 2
4.883333 1
4.916667 2
4.933333 1
4.950000 1
4.966667 2
4.983333 2
5.000000 1
5.033333 2
5.050000 1
5.100000 2
5.116667 1
5.133333 4
5.166667 2
5.183333 1
5.233333 1
5.250000 1
5.300000 1
5.316667 1
5.333333 2
5.400000 2
5.416667 4
5.433333 1
5.483333 2
5.500000 1
5.516667 1
5.533333 1
5.550000 1
5.583333 1
5.616667 1
5.633333 1
5.666667 1
5.683333 2
5.700000 1
5.716667 1
5.733333 2
5.800000 2
5.816667 1
5.883333 1
5.950000 1
5.983333 1
6.000000 1
6.016667 1
6.033333 1
6.050000 1
6.083333 1
6.100000 1
6.116667 1
6.133333 2
6.150000 1
6.166667 1
6.216667 1
6.333333 1
6.366667 1
6.383333 1
6.450000 2
6.566667 1
6.800000 1
6.916667 1
NA 10
pppp <- ggplot(data = data, mapping = aes(x = hsc_T3, fill = factor(hsc_T3))) + geom_histogram(binwidth = 0.1) 
ggplotly(pppp) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_T4
hsc_T4_count <- dplyr::count(data, hsc_T4)
knitr::kable(hsc_T4_count) 
hsc_T4 n
2.616667 1
3.083333 1
3.183333 1
3.583333 1
3.633333 1
3.833333 1
3.850000 1
3.916667 1
3.933333 2
4.066667 1
4.233333 2
4.250000 1
4.333333 2
4.350000 1
4.366667 1
4.516667 1
4.533333 1
4.616667 3
4.633333 2
4.650000 1
4.666667 1
4.716667 1
4.750000 1
4.766667 1
4.783333 3
4.800000 1
4.833333 2
4.850000 1
4.866667 2
4.883333 1
4.900000 1
4.916667 1
4.933333 1
4.950000 1
5.000000 1
5.033333 1
5.100000 1
5.116667 2
5.150000 1
5.166667 1
5.200000 1
5.250000 1
5.300000 2
5.316667 2
5.333333 1
5.350000 1
5.366667 1
5.383333 1
5.400000 1
5.416667 1
5.433333 1
5.466667 1
5.483333 1
5.533333 2
5.550000 2
5.566667 1
5.633333 1
5.683333 2
5.700000 1
5.716667 1
5.733333 1
5.750000 2
5.766667 3
5.783333 2
5.816667 1
5.850000 1
5.866667 1
5.883333 1
5.900000 2
5.966667 1
5.983333 1
6.050000 1
6.116667 1
6.183333 1
6.250000 2
6.283333 1
6.416667 1
6.433333 1
6.450000 1
6.483333 1
6.550000 1
7.000000 1
NA 10
qqqq <- ggplot(data = data, mapping = aes(x = hsc_T4, fill = factor(hsc_T4))) + geom_histogram(binwidth = 0.1) 
ggplotly(qqqq) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T1
wb_T1_count <- dplyr::count(data, wb_T1)
knitr::kable(wb_T1_count)
wb_T1 n
0.6 1
0.8 1
1.2 1
1.4 5
1.6 5
1.8 6
2.0 7
2.2 11
2.4 5
2.6 11
2.8 11
3.0 14
3.2 7
3.4 7
3.6 7
3.8 5
4.0 3
4.2 3
4.4 1
4.6 1
5.0 1
NA 1
rrrr <- ggplot(data = data, mapping = aes(x = wb_T1, fill = factor(wb_T1))) + geom_histogram(binwidth = 0.5)
ggplotly(rrrr)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T2
wb_T2_count <- dplyr::count(data, wb_T2)
knitr::kable(wb_T2_count) 
wb_T2 n
1.0 1
1.2 1
1.4 1
1.6 5
1.8 6
2.0 4
2.2 7
2.4 7
2.6 8
2.8 2
3.0 15
3.2 10
3.4 7
3.6 2
3.8 7
4.0 4
4.2 2
4.4 5
4.6 2
5.0 3
NA 15
ssss <- ggplot(data = data, mapping = aes(x = wb_T2, fill = factor(wb_T2))) + geom_histogram(binwidth = 0.5) 
ggplotly(ssss) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T3
wb_T3_count <- dplyr::count(data, wb_T3)
knitr::kable(wb_T3_count) 
wb_T3 n
0.0 1
0.8 1
1.0 2
1.4 3
1.6 1
1.8 5
2.0 5
2.2 8
2.4 10
2.6 7
2.8 10
3.0 12
3.2 8
3.4 5
3.6 4
3.8 10
4.0 5
4.4 1
4.6 3
4.8 1
5.0 3
NA 9
tttt <- ggplot(data = data, mapping = aes(x = wb_T3, fill = factor(wb_T3))) + geom_histogram(binwidth = 0.5) 
ggplotly(tttt) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_T4
wb_T4_count <- dplyr::count(data, wb_T4)
knitr::kable(wb_T4_count) 
wb_T4 n
0.2 1
0.6 1
0.8 2
1.0 2
1.2 3
1.4 1
1.6 2
1.8 4
2.0 8
2.2 8
2.4 6
2.6 13
2.8 8
3.0 3
3.2 10
3.4 7
3.6 4
3.8 3
4.0 5
4.2 5
4.4 2
4.6 2
5.0 6
NA 8
uuuu <- ggplot(data = data, mapping = aes(x = wb_T4, fill = factor(wb_T4))) + geom_histogram(binwidth = 0.5)
ggplotly(uuuu)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T1
ev_T1_count <- dplyr::count(data, ev_T1)
knitr::kable(ev_T1_count)
ev_T1 n
-3.0 3
-2.5 1
-2.0 1
-1.5 7
-1.0 4
-0.5 9
0.0 21
0.5 18
1.0 11
1.5 1
2.0 3
2.5 15
3.0 19
NA 1
vvvv <- ggplot(data = data, mapping = aes(x = ev_T1, fill = factor(ev_T1))) + geom_histogram(binwidth = 0.5) 
ggplotly(vvvv) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T2
ev_T2_count <- dplyr::count(data, ev_T2)
knitr::kable(ev_T2_count) 
ev_T2 n
-3.0 3
-2.5 5
-2.0 1
-1.5 3
-1.0 4
-0.5 3
0.0 22
0.5 10
1.0 9
1.5 3
2.0 6
2.5 12
3.0 14
NA 19
wwww <- ggplot(data = data, mapping = aes(x = ev_T2, fill = factor(ev_T2))) + geom_histogram(binwidth = 0.5) 
ggplotly(wwww) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T3
ev_T3_count <- dplyr::count(data, ev_T3)
knitr::kable(ev_T3_count) 
ev_T3 n
-3.0 7
-2.0 3
-1.5 1
-1.0 3
-0.5 8
0.0 20
0.5 17
1.0 8
1.5 6
2.0 10
2.5 5
3.0 15
NA 11
panda <- ggplot(data = data, mapping = aes(x = ev_T3, fill = factor(ev_T3))) + geom_histogram(binwidth = 0.5) 
ggplotly(panda) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_T4
ev_T4_count <- dplyr::count(data, ev_T4)
knitr::kable(ev_T4_count) 
ev_T4 n
-3.0 3
-2.0 1
-1.0 3
-0.5 10
0.0 21
0.5 15
1.0 9
1.5 8
2.0 10
2.5 7
3.0 14
NA 13
yyyy <- ggplot(data = data, mapping = aes(x = ev_T4, fill = factor(ev_T4))) + geom_histogram(binwidth = 0.5) 
ggplotly(yyyy) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#hsc_onemonth
hsc_onemonth_count <- dplyr::count(data, hsc_onemonth)
knitr::kable(hsc_onemonth_count)
hsc_onemonth n
3.170833 1
3.533333 1
3.750000 1
3.887500 1
4.033333 1
4.100000 1
4.145833 1
4.262500 1
4.270833 1
4.279167 1
4.437500 1
4.441667 1
4.475000 1
4.504167 1
4.575000 2
4.600000 1
4.604167 1
4.645833 1
4.679167 1
4.750000 1
4.754167 1
4.762500 1
4.775000 1
4.804167 1
4.837500 1
4.883333 1
4.904167 1
4.912500 1
4.962500 1
4.966667 1
4.975000 1
5.008333 1
5.016667 1
5.037500 1
5.041667 1
5.058333 1
5.066667 1
5.079167 1
5.079167 1
5.116667 1
5.175000 1
5.200000 1
5.241667 1
5.270833 1
5.275000 1
5.287500 1
5.304167 2
5.329167 1
5.362500 1
5.383333 1
5.391667 1
5.400000 1
5.404167 1
5.420833 1
5.425000 1
5.533333 1
5.537500 1
5.554167 1
5.591667 1
5.608333 1
5.625000 1
5.637500 2
5.641667 1
5.650000 1
5.729167 1
5.737500 1
5.783333 1
5.795833 1
5.812500 1
5.829167 1
5.875000 1
5.879167 1
5.900000 1
5.987500 1
6.012500 1
6.029167 1
6.054167 1
6.095833 1
6.158333 1
6.237500 1
6.258333 1
6.570833 1
6.687500 1
NA 28
zzzz <- ggplot(data = data, mapping = aes(x = hsc_onemonth, fill = factor(hsc_onemonth))) + geom_histogram(binwidth = 0.3) + guides(fill = "none") 
ggplotly(zzzz) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#wb_onemonth
wb_onemonth_count <- dplyr::count(data, wb_onemonth)
knitr::kable(wb_onemonth_count) 
wb_onemonth n
1.15 1
1.25 1
1.30 1
1.40 1
1.65 1
1.75 1
1.80 1
1.85 1
1.95 1
2.00 1
2.00 1
2.10 2
2.15 1
2.20 1
2.25 2
2.30 1
2.30 1
2.35 1
2.40 3
2.45 1
2.45 2
2.50 3
2.55 1
2.60 1
2.70 1
2.75 1
2.75 1
2.80 4
2.80 1
2.85 4
2.85 2
2.85 2
2.90 1
2.90 1
2.95 2
2.95 3
3.05 4
3.05 1
3.15 1
3.20 1
3.30 1
3.35 2
3.40 1
3.45 1
3.45 1
3.50 1
3.55 1
3.60 2
3.60 1
3.65 1
3.75 1
3.80 1
3.80 1
3.85 1
4.05 1
4.10 1
4.20 2
4.25 2
4.40 1
4.45 2
4.55 1
4.85 1
NA 26
A <- ggplot(data = data, mapping = aes(x = wb_onemonth, fill = factor(wb_onemonth))) + geom_histogram(binwidth = 0.3) + guides(fill = "none") 
ggplotly(A) 
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`
#ev_onemonth
ev_onemonth_count <- dplyr::count(data, ev_onemonth)
knitr::kable(ev_onemonth_count)
ev_onemonth n
-1.625 1
-1.125 1
-0.875 1
-0.750 2
-0.625 1
-0.500 1
-0.375 1
-0.250 3
-0.125 2
0.000 4
0.125 6
0.250 7
0.375 2
0.500 4
0.625 2
0.750 6
0.875 3
1.000 2
1.125 2
1.250 3
1.375 5
1.500 5
1.625 3
1.750 4
1.875 3
2.125 2
2.250 2
2.500 1
2.625 2
2.750 1
2.875 2
NA 30
B <- ggplot(data = data, mapping = aes(x = ev_onemonth, fill = factor(ev_onemonth))) + geom_histogram(binwidth = 0.3) + guides(fill = "none") #視覚化
ggplotly(B)
## We recommend that you use the dev version of ggplot2 with `ggplotly()`
## Install it with: `devtools::install_github('hadley/ggplot2')`